unit EapMenuTreeD;

interface

uses
  System.SysUtils, System.Classes, libMaintenance_CustomD, FireDAC.Stan.Intf,
  FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
  FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
  Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client;

type
  TdmEapMenuTree = class(TdmMaintenance_Custom)
    qryDetails: TFDQuery;
    srcFunction: TDataSource;
    qryMasterfldFunctionCode: TStringField;
    qryMasterfldMainMenuCode: TStringField;
    qryMasterfldParentCode: TStringField;
    qryMasterfldKeyFieldName: TStringField;
    qryMasterfldFunctionName1: TWideStringField;
    qryMasterfldFunctionName2: TWideStringField;
    qryMasterfldFunctionName3: TWideStringField;
    qryMasterfldUserName1: TWideStringField;
    qryMasterfldUserName2: TWideStringField;
    qryMasterfldUserName3: TWideStringField;
    qryMasterfldNeedApproval: TBooleanField;
    qryMasterfldNeedPopedomControl: TBooleanField;
    qryMasterfldIsAFunction: TBooleanField;
    qryMasterfldSendMessage: TBooleanField;
    qryMasterfldType: TStringField;
    qryMasterfldModuleType: TStringField;
    qryMasterfldApprovalTypeCode: TStringField;
    qryMasterfldEffectiveFromDate: TSQLTimeStampField;
    qryMasterfldEffectiveToDate: TSQLTimeStampField;
    qryMasterfldHaveEffectiveToDate: TBooleanField;
    qryMasterfldUserReferControl: TBooleanField;
    qryMasterfldReportFileName: TStringField;
    qryMasterfldCreator: TStringField;
    qryMasterfldCreateTime: TSQLTimeStampField;
    qryMasterfldLastModifier: TStringField;
    qryMasterfldLastModTime: TSQLTimeStampField;
    qryMasterfldNoOfMod: TIntegerField;
    procedure DataModuleCreate(Sender: TObject);
    procedure qryMasterAfterEdit(DataSet: TDataSet);
    procedure qryMasterAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmEapMenuTree: TdmEapMenuTree;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedure TdmEapMenuTree.DataModuleCreate(Sender: TObject);
begin
  inherited;
//  doDeleteSaveList(qryMaster);
  doAddSaveList(qryDetails);
end;

procedure TdmEapMenuTree.qryMasterAfterEdit(DataSet: TDataSet);
begin
  doEditHistory;
end;

procedure TdmEapMenuTree.qryMasterAfterInsert(DataSet: TDataSet);
begin
  doNewHistory;
end;

end.
